From: Alex Schroeder Date: Thu, 13 Nov 2003 18:20:08 +0000 (+0000) Subject: (timezone-parse-date): Fix style 8 to accept ISO X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25007 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=56f03b6880f6dacba40b40aae48c567f67e8e0ca;p=emacs.git (timezone-parse-date): Fix style 8 to accept ISO 8601 format (a capital T between the date and the time). --- diff --git a/lisp/timezone.el b/lisp/timezone.el index 90a5ac37de5..bad269d9cbc 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -191,11 +191,11 @@ Understands the following styles: ;; Styles: (8) with timezone. (setq year 1 month 2 day 3 time 4 zone 5)) ((string-match - "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+\\)[ \t]+\\([-+a-zA-Z0-9:]+\\)" date) + "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[T \t]+\\([0-9]+:[0-9]+\\)[ \t]+\\([-+a-zA-Z0-9:]+\\)" date) ;; Styles: (8) with timezone with a colon in it. (setq year 1 month 2 day 3 time 4 zone 5)) ((string-match - "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)" date) + "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[T \t]+\\([0-9]+:[0-9]+:[0-9]+\\)" date) ;; Styles: (8) without timezone. (setq year 1 month 2 day 3 time 4 zone nil)) )